home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / List.p < prev    next >
Text File  |  2004-01-31  |  3KB  |  98 lines
  1. pTempVar <- <primitive 110 17 >
  2. <primitive 112 pTempVar 1  " isEmpty " \
  3.   #( #[ 16r10 16r5D 16rB6 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " last " \
  7.   #( #[ 16r10 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16r20 16r0A 16r19 16r0A \
  8.         16r31 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " current " \
  12.   #( #[ 16r11 16r0A 16r31 16rF3 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " next " \
  16.   #( #[ 16r11 16r0A 16r32 16rF1 16r61 16rA2 16rF7 16r03 16r11 16r0A 16r31 \
  17.         16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " first " \
  21.   #( #[ 16r10 16rF1 16r61 16rA2 16rF7 16r03 16r11 16r0A 16r31 16rF3 16rF5 \
  22.        ] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " removeLast " \
  26.   #( #[ 16r10 16rA1 16rF7 16r04 16r20 16r0A 16r25 16rF3 16rF2 16r20 16r20 \
  27.         16r0A 16r1F 16rE0 16r04 16r20 16r0A 16r25 16rF3 16rD8 16rF3 \
  28.         16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " removeFirst " \
  32.   #( #[ 16r10 16rA1 16rF7 16r04 16r20 16r0A 16r25 16rF3 16rF2 16r10 16r71 \
  33.         16r10 16r0A 16r32 16r60 16r21 16r0A 16r31 16rF3 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " removeError " \
  37.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  38.     #( 'cannot remove from an empty list'  )) >
  39.  
  40. <primitive 112 pTempVar 9  " remove:ifAbsent: " \
  41.   #( #[ 16r10 16rA1 16rF7 16r03 16r22 16rA5 16rF3 16rF2 16r20 16r5D 16rE2 \
  42.         16r03 16r1F 16r11 16r0A 16r31 16r21 16rB6 16rF7 16r15 16r23 \
  43.         16rA1 16rF7 16r07 16r11 16r0A 16r32 16rF1 16r60 16rF8 16r07 \
  44.         16rF2 16r23 16r11 16r0A 16r32 16r0B 16r34 16rF2 16r21 16rF4 \
  45.         16rF2 16r11 16rF3 16rD7 16rF2 16r22 16rA5 16rF3 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 10  " remove: " \
  49.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rD8 16rF3 16rF5 \
  50.        ] \
  51.     #( 'cant find item'  )) >
  52.  
  53. <primitive 112 pTempVar 11  " findLast " \
  54.   #( #[ 16r10 16rF1 16r71 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16r21 16r0A \
  55.         16r32 16rA2 16rF7 16r08 16r21 16r0A 16r32 16rF1 16r71 16rF2 \
  56.         16rF9 16r0E 16rF2 16r21 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 12  " coerce: " \
  60.   #( #[ 16r05 16r30 16rA0 16r72 16r21 16rE1 16r03 16r05 16r22 16r23 16r0B \
  61.         16r17 16rF3 16rB3 16rF2 16r22 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 13  " addAllLast: " \
  65.   #( #[ 16r21 16rE1 16r02 16r05 16r20 16r22 16r0B 16r17 16rF3 16rB3 16rF2 \
  66.         16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 14  " addAllFirst: " \
  70.   #( #[ 16r21 16rE1 16r02 16r05 16r20 16r22 16r0B 16r16 16rF3 16rB3 16rF2 \
  71.         16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 15  " addLast: " \
  75.   #( #[ 16r10 16rA1 16rF7 16r05 16r20 16r21 16r0B 16r16 16rF3 16rF2 16r20 \
  76.         16r0A 16r19 16r05 16r35 16rA0 16r21 16r0B 16r33 16r5D 16r0B \
  77.         16r34 16r0B 16r34 16rF2 16r21 16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 16  " addFirst: " \
  81.   #( #[ 16r05 16r35 16rA0 16r21 16r0B 16r33 16r10 16r0B 16r34 16r60 16r21 \
  82.         16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 17  " add: " \
  86.   #( #[ 16r05 16r35 16rA0 16r21 16r0B 16r33 16r10 16r0B 16r34 16r60 16r21 \
  87.         16rF3 16rF5] \
  88.     #(  )) >
  89.  
  90. <primitive 98 #List \
  91.   <primitive 97 #List #SequenceableCollection #AmigaTalk:General/List.st \
  92.    #(  #first #current ) \
  93.    #( #isEmpty #last #current #next #first #removeLast #removeFirst  \
  94.        #removeError #remove:ifAbsent: #remove: #findLast #coerce: #addAllLast:  \
  95.        #addAllFirst: #addLast: #addFirst: #add:  ) \
  96.   pTempVar 5 8 > #ordinary >
  97.  
  98.